﻿Public Class Ecliente

    Inherits Epersona
    Private legajocliente As Integer
    Private recibodesueldo As Integer
    Private grupofamiliar As Integer

    Public Sub New()
        MyBase.New()
        InitializeComponent()
        legajocliente = 0
        recibodesueldo = 0
        grupofamiliar = 0

    End Sub


    Public Property legcli() As Integer
        Get
            Return legajocliente
        End Get
        Set(ByVal value As Integer)
            legajocliente = value
        End Set
    End Property
    Public Property sueldocli() As Integer
        Get
            Return recibodesueldo
        End Get
        Set(ByVal value As Integer)
            recibodesueldo = value
        End Set
    End Property
    Public Property familiacli() As Integer
        Get
            Return grupofamiliar
        End Get
        Set(ByVal value As Integer)
            grupofamiliar = value
        End Set
    End Property
End Class
